home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ps18a14.arc / MNEMLEV2.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-04-14  |  3.9 KB  |  171 lines
  1.          .direct -m2   ;1805a instruction set enabled
  2.          .org 0       ;comment test
  3.          .db 1,2,3,4,5,6,7,8 ;define byte test
  4. lab1:                ;label only test
  5.  
  6.                      ;blank line and comment only test
  7.          .dw 1,32000  ;define word test
  8.          .rs 10       ;reserve storage test
  9.          .dw 1+lab1   ;add test
  10.          .dw lab1-1   ;subtract test
  11.          .dw 1*lab1   ;multiply test
  12.          .dw 'k'      ;character test
  13.          .db 1,d'6,077,o'77,q'77,0x77,h'77,x'aa,x'a,b'1111,b'1 ;radix test
  14.          .db "k"      ;string test--should give no error
  15.          .db "\n\t\b\r\f\\\'\0\145" ;string escape test sequence
  16.          .dw 1 << 15  ;8000
  17.          .dw x'8000 >> 15  ;0001
  18.          .dw ~x'ffff    ;0000
  19.          .dw -1         ;ffff
  20.          .page
  21.          .dw 10 /2      ;5
  22.          .eject
  23.          .dw 32000/2000 ;16
  24.          .dw 27 %5      ;modulus = 2
  25.          .dw x'5555 ~ x'5555 ;ffff
  26.          .dw x'5555 | x'aaaa ;ffff
  27.          .dw x'5555 ^ x'aaaa ;ffff
  28. start:   .dw x'5555 ^ x'5555 ;0000
  29.          .dw x'5555 & x'aaaa ;0000
  30.          .dw x'5555 & x'5555 ;5555
  31.          .dw 32000 + 1  ;large positive
  32.          .dw -32000 + 1 ;small negative
  33.          .dw 5 + - 3 * 2 /3 ;complex expression
  34.          .dw 5 + (-3)*2/3   ;
  35.          .dw lab2
  36.          .dw lab2+1         ;test expression sync
  37.          .code        ;extraneous switch to current segment
  38.          .segment foo
  39.          foo
  40.          .org x'ff
  41.          .db 1,2
  42.          .code
  43.          .db 3,4
  44.          foo
  45. lab2:    .db,5,6
  46.          .set lab3,lab2
  47.          .equ lab3,start
  48. codetst:  LDN     1
  49.           LDA     1
  50.           LDX
  51.           LDXA
  52.           LDI     1
  53.           STR     1
  54.           STXD
  55.           INC     1
  56.           DEC     1
  57.           IRX
  58.           GLO     1
  59.           PLO     1
  60.           GHI     1
  61.           PHI     1
  62.           OR
  63.           ORI     1
  64.           XOR
  65.           XRI     1
  66.           AND
  67.           ANI     1
  68.           SHR
  69.           SHRC
  70.           RSHR
  71.           SHL
  72.           SHLC
  73.           RSHL
  74.           ADD
  75.           ADI     1
  76.           ADC
  77.           ADCI    1
  78.           SD
  79.           SDI     1
  80.           SDB
  81.           SDBI    1
  82.           SM
  83.           SMI     1
  84. testbr:   SMB
  85.           SMBI    1
  86.           BR      testbr
  87.           NBR
  88.           BZ      testbr
  89.           BNZ     testbr
  90.           BDF     testbr
  91.           BPZ     testbr
  92.           BGE     testbr
  93.           BNF     testbr
  94.           BM      testbr
  95.           BL      testbr
  96.           BQ      testbr
  97.           BNQ     testbr
  98.           B1      testbr
  99.           BN1     testbr
  100.           B2      testbr
  101.           BN2     testbr
  102.           B3      testbr
  103.           BN3     testbr
  104.           B4      testbr
  105.           BN4     testbr
  106.           LBR     testbr
  107.           NLBR
  108.           LBZ     testbr
  109.           LBNZ    testbr
  110.           LBDF    testbr
  111.           LBNF    testbr
  112.           LBQ     testbr
  113.           LBNQ    testbr
  114.           SKP
  115.           LSKP
  116.           LSZ
  117.           LSNZ
  118.           LSDF
  119.           LSNF
  120.           LSQ
  121.           LSNQ
  122.           LSIE
  123.           IDL
  124.           NOP
  125.           SEP     1
  126.           SEX     1
  127.           SEQ
  128.           REQ
  129.           SAV
  130.           MARK
  131.           RET
  132.           DIS
  133.           OUT     1
  134.           INP     1
  135.           RLXA   r3
  136.           RLDI   5,h'ff00
  137.           RSXD   r0
  138.           RNX    r1
  139.           BCI synctest
  140.           BXI synctest
  141.           ETQ
  142.           LDC
  143.           GEC
  144.           STPC
  145.           DTC
  146.           STM
  147.           SCM1
  148.           SCM2
  149.           SPM1
  150.           SPM2
  151.           XIE
  152.           XID
  153.           CIE
  154.           CID
  155.           SCAL  5,synctest
  156.           scal  rf,testbr
  157.           SRET  rf
  158.           dbnz  r1,synctest
  159.           dadd
  160.           dadi  h'99
  161.           dadc
  162.           daci x'01
  163.           dsm
  164.           dsmi h'21
  165.           dsmb
  166.           dsbi h'01
  167.           dsav
  168. synctest: .DIRECT   +h88 +w132
  169.          .end  start
  170.  
  171.